home *** CD-ROM | disk | FTP | other *** search
/ Sprite 1984 - 1993 / Sprite 1984 - 1993.iso / lib / perl / stdio.ph < prev    next >
Encoding:
Text File  |  1991-08-12  |  1.8 KB  |  67 lines
  1. if (!defined &_STDIO_H) {
  2.     eval 'sub _STDIO_H {1;}';
  3.     require 'cfuncproto.ph';
  4.     if (defined &KERNEL) {
  5.     require 'sprite.ph';
  6.     }
  7.     if (!defined &EOF) {
  8.     eval 'sub EOF {(-1);}';
  9.     }
  10.     if (!defined &NULL) {
  11.     eval 'sub NULL {0;}';
  12.     }
  13.     if (!defined &_CLIENTDATA) {
  14.     eval 'sub _CLIENTDATA {1;}';
  15.     }
  16.     if (!defined &_VA_LIST) {
  17.     eval 'sub _VA_LIST {1;}';
  18.     }
  19.     eval 'sub STDIO_READ {1;}';
  20.     eval 'sub STDIO_WRITE {2;}';
  21.     eval 'sub STDIO_EOF {4;}';
  22.     eval 'sub STDIO_LINEBUF {8;}';
  23.     eval 'sub STDIO_NOT_OUR_BUF {16;}';
  24.     if (!defined &lint) {
  25.     eval 'sub getc {
  26.         local($stream) = @_;
  27.         eval "((($stream)-> &readCount <= 0) ?  &fgetc($stream) : (($stream)-> &readCount -= 1, ($stream)-> &lastAccess += 1, *(($stream)-> &lastAccess)))";
  28.     }';
  29.     eval 'sub putc {
  30.         local($c, $stream) = @_;
  31.         eval "(((($stream)-> &writeCount <= 1) || (($stream)-> &flags &  &STDIO_LINEBUF)) ?  &fputc($c, $stream) : (($stream)-> &writeCount -= 1, ($stream)-> &lastAccess += 1, *($stream)-> &lastAccess = $c))";
  32.     }';
  33.     }
  34.     else {
  35.     }
  36.     eval 'sub getchar {
  37.         eval " &getc( &stdin)";
  38.     }';
  39.     eval 'sub putchar {
  40.         local($c) = @_;
  41.         eval " &putc($c,  &stdout)";
  42.     }';
  43.     eval 'sub ferror {
  44.         local($stream) = @_;
  45.         eval "(($stream)-> &status)";
  46.     }';
  47.     eval 'sub feof {
  48.         local($stream) = @_;
  49.         eval "(($stream)-> &flags &  &STDIO_EOF)";
  50.     }';
  51.     eval 'sub stdin {(& &stdioInFile);}';
  52.     eval 'sub stdout {(& &stdioOutFile);}';
  53.     eval 'sub stderr {(& &stdioErrFile);}';
  54.     eval 'sub BUFSIZ {4096;}';
  55.     eval 'sub _IOFBF {1;}';
  56.     eval 'sub _IOLBF {2;}';
  57.     eval 'sub _IONBF {3;}';
  58.     eval 'sub SEEK_SET {0;}';
  59.     eval 'sub SEEK_CUR {1;}';
  60.     eval 'sub SEEK_END {2;}';
  61.     if (defined &KERNEL) {
  62.     }
  63.     else {
  64.     }
  65. }
  66. 1;
  67.